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: REKAAAAAAAAAAASAKAASAAAATAEAAARARAAAAAAAAAAAAAEARARARAARAAAAAAAEARAEAHRAAARAEARAREAAAAAEE 
; ABSTRACT: 

These routines are called by the lexical presese mp routines to 

: erform functions which are optional to the basic lexical routines, 
: ut are required by CLI parsing. 


: ¢ AUTHOR: 
Tim Halvorsen, Jan-1982 
: ; MODIFIED BY: 


v03-021 HwWS0092 Harold Schultz 22-Jul-1984 
Add support for execute-only command procedures. 


v03-020 HWS0077 Harold Schultz 29-Jun-9184 
If EOF encountered when reading a command procedure 
while processing a line continuation, ignore termination 
and return EOL. 


v03-019 HwWS0072 arold Schultz 08-Jun-1984 
err tes undo Hus0 06 (setting of the parse position 
Set the parse position prior to process} ng the ar LeShec 
construct. but save the old parse gos ty: on set by.' the 
t after the ‘a’ processing 
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higher level routines and restore 
has successfully completed. 


v03-018 HWS0039 Harold Schultz 26-Mar-1984 
When using arrow keys, don't duplicate command when changing 
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28 3 directions in recalling commands and are at the beginning of 
a4 : the buffer. 
0 1; v03-017 HWS0034 Harold Schultz 16-Mar-1984 
96 3 Always use terminal RAB when outputting escape sequences 
o : and arrow keys. 
000 65; V03=016 HWS0006 Harold Schultz 13-Feb-1984 
444 96 3 Remove parse location setting (DCLSMARK) when 
00 67 ; process ng an indirect command file. Let higher 
000 68 ; evel routines set parse location. 
$38 4 ; Use PRC_V_CARRCNTL to determine whether or not 
0; a CR/LF is to be inserted before the prompt string. 
000 fi 3 Fix RECALL_NEXT so it will not skip first command 
0000 Le 3 at bottom of command buffer when recall buffer 
st 73; not full. 
44 ee : Save RMS STS and STV values in PRC data table 
$009 76: v03-015 PCG0017 Peter George 03-Jan-1984 
4464 A : Move location of test for PRC_V_FLUSH. 
0000 79; v03-014 PCG0017 Peter George 03-Jan-1984 
0000 80 ; Use PRC_V_FLUSH to deterime how to handle EOF when 
44 4 : peforming a flush. 
0000 HE : v03-013 PCG0016 Peter George 18-Nov-1983 
0000 84 ; Support up and down arrow recall. 
0000 85 ; Do not automatically close command procedures when 
i404 36 : flushing a record. Add support for erase keypad attribute. 
0000 88: v03-012 PCG0015 Peter George 27-Sep-1983 
0000 89 ; Ignore spurious CTRL/Y's. 
464 Ps : Only check for CTRL/B’s and ESC if input is from terminal. 
0000 3 : v03-011 PCG0014 Peter George 17-Jul-1983 
464 + : Support 20 recalled commands. 
0000 95; v03-010 PCG0013 Peter George 01-May-1983 
0000 96 ; Correctly signal keypad buffer overflows. 
4 a : Fix CTRL/Y interrupting GOTO bug. 
9000 99 ; v03-009 PCG0012 Peter George 20-Apr-1983 
000 199 : Check for CTRL/B with CMPB. 
0900 103 ; v03-008 PCG0011 Peter George 06-Apr-1983 
000 103; Remove GOTO go e. 
O60 Hr : Reformat DCLSINPUT code. 
00 105 ; Change test for escape sequence. 
00 106 ; Allow the RECALL command to accept letters as arguments. 
0 44 : Update recall buffer when at ctrl/y level. 
00 198 : v03-007 PCG0010 Peter George 01-Apr-1983 
38 119 : Change STV MOVZWL to MOVZBL. 
0 118 F V03-006 PCG0009 ‘Peter George 24-Feb-1983 
0 33 3 Do not verify Lines in EXE-only command procedures. 
000 114 ; Lookup terminating escape sequences in the keypad 
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symbol table and act on them. 
Use new XABTRM and init gpprane rete fields in its item List. 
Add RECALL command and CTRL/B processing. 


v03-005 PCG0008 Peter George 10-Feb-1983 
Close SYSSOUTPUT on silent logout. 


v03-004 PCG0007 Peter George 15-Jan-1983 
Supply more rigourous test of whether commands 
should be verified. Close PPF files before silent logout. 


v03-003 PCG0006 Peter George 28-Dec-1982 
If SGET fails because of insufficient quota, 
then log the process out. 


v03-002 PCG0005 Peter George 14-Nov-1982 
Call DCLSUPCASE instead of DCLSREMBLANKS 
Use prompt descriptor instead of WRK_L_PROMPT. 


v03-001 PCG0004 Peter George 28-0c t-1982 
Get prompt string from PRC. 
Process escape sequences. 
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o .SBTTL READ NEXT INPUT RECORD 
gi $ DCLSINPUT = READ NEXT INPUT RECORD 
0 164 READS THE NEXT INPUT RECORD AND PLACES IT INTO THE INPUT BUFFER. 
165 ; THE CHARACTER POINTER IS RESET TO THE BEGINNING OF THE RECORD. 
005 1 $ ; SYMBOL SUBSTITUTION PASS IS PERFORMED IF A SINGLE OCCURRENCE OF A 
005 167 ; SINGLE QUOTE IS DETECTED IN THE RECORD. 
098 199 > INPUTS: 
003 171: R11 = ADDRESS OF PRC AREA 
Bp a : R10 = ADDRESS OF WRK AREA 
0008 24 ? outputs: 
0005 176 i : WRK_L -CHARPTR POINTS TO BEGINNING OF INPUT RECORD, WHICH | 
4 6 Ve 3 S BEEN TERMINATED BY A NULL BYTE. 
0005 179 RO = FIRST CHARACTER IN INPUT BUFFER | 
0005 181 SCLSINPUT:: INPUT NEXT RECORD | 
1c 6©BB (0005 188 PUSHR #*M<R2,R3,R4> SSAVE REGISTERS | 
Fe | 
0007 185 ; IF AUTOLOGO FLAG SET AND WE ARE AT LEVEL O OR CTRL/Y LEVEL, | 
0007 186 ; THEN DELETE THIS PROCESS TO PERFORM AN IMPLIED LOGOUT BUT WITHOUT | 
484 + 1a 3 ANY LOGOUT MESSAGE. THIS IS FOR THE SPAWN COMMAND. 
1268 AB 08 €1 0007 189 REINP: BBC #PRC_V -AUTOLOGO. pRC W FLAGS(RI1) 208 :BRANCH IF FLAG NOT SET 
OD FO AA O07 €O 000C 190 BBS #WRK-V~INQUIR E ow K_Q PLAGS(R10) ‘8 $ ;BRANCH IF _INQUIR | 
05 68 ABE OB: «CEO «=60011—s« 191 BBS #PRC"V-YLEVEL C\O FLAGS<RIT) of s1F SET, AT CONTROL Y/C LEVE | 
5C AB DS «(0016 198 TSTL = PRC_C_ VINDEPTHER ity S INDIRECT LEVEL ZERO? 
03 12 0019 19 BNEG 0$* [BRANCH IF NOT 
027d «(31 0018 194 10$: BRW SILENT_LOGOUT [PERFORM SILENT LOGOUT | 
OQO1E 196 ; 
OIE 197 ; GET ADDRESS OF THE RAB ASSOCIATED WITH THIS INDIRECT LEVEL 
OE FO AA 07 £0 001 199 50$: BBS #WRK_V INQUIRE E,WRK_W -FLAGS(RIO), 30$ r1F SET, QUERY IN PROGRESS 
4 14AB DO 00 00 MOVL PRC_C_TNDINPRAB(R1T) 7R4 [GET ADDRESS OF LEVEL N RAB 
09 68 AB OCOOB;Stséz*? 00 01 BBC pPRC 0 TLE VE L,PRC_W FLAGS(RI1) 40$ SIF CLR, NOT AT CONTROL Y/C 
04 68 AB, 04 £0 O0Gr 08 BBS = #PRC~V PRC W-FCAGS(R11) ,40$ :1f SET, AT GOTO LEVEL | 
54 08 AB DO ! 03 30$:  MOVL PRC_C_ VIRPRABCR 17) 7R4 GET ADORESS OF LEVEL 0 RAB 
0 3 03 ; 
03 ¢: : SETUP PROMPT STRING 
50 1 dO 0035 Og f 40$: = MOVL = PRC_L_TRMLIST(R11),RO :GET ADDRESS OF XABTRM ITEM 
OC AO F99E CA 80 039 20 MOVW WRK-W"PMPTLEN(R10),ITRM_W PMPTLEN(RO) :SET LENGTH OF PROMPT STRING 
10 AO =F9A2 CA OD 0055 10 MOVL = WRK"L“PMPTADDR(R105,1TRA_C_PMPTADDR(RO) :SET ADDRESS OF PROMPT STRIN| 
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4 13 ; | 
4 16 t SETUP INPUT BUFFER AND POINTERS. | 
4 1 GET_INPUT: | 
20 a6 «600100 BF SB (004 1 MOVW #uRK a nour eStats RABSY_USZ(RG) :SET SIZE OF INPUT BUFFER 
52. F894 CA . 48 18 MOVAB GTNPBU R2 GET ADDRESS OF INPUT BUFFER 
24 AG é p 2 j OVL Re K RAB SSET ADDRESS OF INPUT BUFFER | 
F4BE CA FFA E 34 p MOVAB (r2), bate a COAARPTR(RIO) ;SET POINTER FOR GET CHARACT | 
O5A ; 
OSA : READ THE NEXT INPUT RECORD AND CHECK FOR ERRORS. | 
B24 5 DISABLE :DISABLE CONTROL Y/C AST'S | 
OS FO AA O07 €1 0055 6 BB #WRK_V INQUIRE WRK_W_FLAGS(R10),10$ [SKIP IF NOT INQUIRING 
06 SETBIT RABST PPF_IND,RABSO_ISI(R4) [SET INDIRECT PPF 
068 8 10$ T RAB=(R4) [GET NEXT RECORD FROM INPUT 
071 9 CLRBIT RABSV PPF IND, RABSW_IS1(R4) SCLEAR INDIRECT PPF 
23 68 A E1 0076 0 RC_Q_CNTRLY.PRC_W ge bAGS(RI1) .208 ‘BRANCH IF NO CTRL/Y PENDING | 
1A 18 AG 98000000" : E1 0078 1 BBC #DEVEVe TRM KASSEL CTR(R4) ,208 :SKIP IF NOT TERMINAL 
00000000°8F 50 01 0084 é CMPL 0, #RMSS_ CONTROLY [DOUBLE CHECK FOR WINDOW | 
0D 12 0088 3 BNEQ : SPURIOUS CTRL/Y 
51 40 A4 00 008D i MOVL §RABSL_XAB(R4),R1 [GET ADDRESS OF XABTR 
18 DO 0091 235 MOVL  #ITRMTK_MINLEN 3SET SHORT LENGTH OF item LI | 
Oc Al 0093 236 KABSU-ITMLST-LENCR1) | 
0519 30 0095 37 BSBW DCLSLOCKED_STATE ; RESTORE LOCKED STATE 
06 11 0098 238 BRB | 
009A 239 15$:  CLRBIT PRC_V_CNTRLY,PRC_W_FLAGS(R11) SIGNORE THIS CTRL/Y 
009E 240 208: ENABLE ENABLE CONTROL Y/C AST'S | 
0E 50 €8 OOA 41 BLBS RO, PROCESS_INPUT tIF LBC 1/0 ERROR | 
0000'8F 50 61 OOA 4g CMPW RO, #RMSS_SYSE*XFFFF Z ERROR IN ? 
04 12 OOAB 24 BNEQ  ERRO OR THEN SKIP 
50 0C AG DO OOAA 244 MOVL  RABSL_STV(R4),RO ‘eet PARTICULAR ERROR STATUS | 
OOEA 31 OOAE 245 ERROR1: BRW 10_ERROR TERROR 
00B1 246 | 
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B) 48 ; 
| 81 49 = READ COMPLETED SUCCESSFULLY. CLEAN UP AND THEN PROCESS THE INPUT RECORD. 
B1 i: PROCESS_ INPUT: 
53 ee AG 3 B1 ; MOVZ2WL RABSW_RSZ(R4),R3 :GET LENGTH OF INPUT RECORD 
51 40 AG OD 08> 5 MOVL RABSL“XAB(R4) .R1 [GET ADDRESS OF XABTR 
18 «OD B9 34 MOVL #ITRMTK_MINLEN, = :SET SHORT LENGTH OF ITEM LI. 
OC Al 0BB 5 XABSWAITMLST LEN(R1) : 
50 10 AB DO 00BD 36 MOVL TRALISTCRI}) RO [GET ADDRESS OF XABTRM ITEM. 
06 68 AB 00) SCOE1~—=s(007 5 BBC arnt 9 RRCNTL,PRC_W_FLAGS(R11),2$ 7SKIP_ IF NO CR/LF INDICATED | 
10 BO 0000'CF C6 38 MOVW = OCL CREF BI TRMCL C_PMPTADDR(RO) INSERT A CR/LF OTHERWISE | 
Goce 60 : IF IN THE MIDST OF A GOTO SCAN, THEN SKIP THE UNNECCESSARY PROCESSING. 
09 68 AB 304 ! 0c 6¢ bs: BBC wPRe V, GOTO, PRC_W_FLAGS(RI1) , 108 :SKIP IF NOT GOTO READ 
tae 1 bop, 64 BRW RETURN RETURN 
FF6B 31 00D7 265 S$: BRW GET_INPUT : 
OODA 56 
OODA 68 : CHECK FOR CTRL/B AND DEFINED KEYS. 
16 18 AG 00000000'8F gi O0ODA 270 108: BBC #OEVSV_TRM RABSL_ CTX(R4),12$ :SKIP IF NOT TERMINAL 
O1DF §=630 «00E3—s 271 BSBW PROCES $S_RECAL *CHECK FOR RECALL CHAR 
5 2t 8k Bheo 5 Seats ws. oir 
0319 30 it 74 BSBW PROCESS_ESCAPE *PROCESS ESCAPE SEQUENCES 
03 30 b QOEE g3 CPL "0,8 :REPROMPT REQUESTED? 
6243 94 Oor 7 CLRB = (R2) CR3 [SET EOL INDICATOR 
B5 50 €9 OOF6 278 BLBC  RO,ERROR1 : ‘BRANCH IF ERROR | 
aa 
OOF9 281 ; IF INTERACTIVE AND IF THE RECORD IS NON-NULL, THEN COPY THE COMMAND LINE 
OOFS Be : TO THE RECALL BUFFER. 
6243 4 OOF9 384 12s CLRB (R2)CR3] :SET EOL INDICATOR 
3113 OOF 86 BEQL [YES, THEN SKIP 
2c 68 AB C06) SCOED «0100 = 287 BBS #PRC_V_MODE ,PRC_W_FLAGS(R11) ,40$ TIF SET, BATCH JOB 
OA 68 AB 08 EO 0105 288 BBS #PRC"VYLEVEL.PRC~W_FLAGS(R11),15$ SIF SET. CTRL/Y LEVEL 
05 FO AA 0 E 10A 289 BBS RK V" INQUIRE ,WRR_@_FLAGS(R105,15$ TIF SET. INQUIRING 
5C AB ODS «(O10F «= 290 TSTL ct _INDEPTH(R11) S INTERACTIVE LEVEL 0? 
1 12 0112 291 BNEQ [IF NO, DON'T SAVE 
38 DD 0114 36 15$: PUSHL ao” [PUSH COMMAND ADDR 
53° oD 116 9 PUSHL R PUSH COMMAND N 
5 DD 011 94 PUSHL SP :PUSH DESCR ADDR 
07 FO AA «(03 «CEO «(OIA 295 BBS WWRK_V_CONTIN,WRK_W_FLAGS(R10),208 [1S IT CONTIN TYPE PROMPT? 
0000° CF 01 Fe 11 96 CALLS #1 DCLSPUT _ COMMAND :SAVE TH — COMMAND AWAY 
0000'cF 01 FB 126 6298 208: CALLS #1,DCLSPUT_SEGMENT : SAVE THE EGMENT AWAY 
3 BED 128 299 30$:  POPL R TRESTORE R 
2 BED0 01 c 00 POPL R TRESTORE R 
"8 
08 t SUBSTITUTE ANY SYMBOLS WHICH ARE DELIMITED BY SINGLE QUOTES 
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1 § 40$: LOCC #*A/*/,R3,(R2) :LINE HAVE POSSIBLE STRING S$ 
1 5 BEQL 50S :IF EQL N 
i f BSBW EXPAND ZEXPAND LINE IF APPROPRIATE 
13A 09 ; 
A 10 : : IF VERIFY MODE, WRITE A COPY OF THE COMMAND LINE TO THE LOG FILE 
13A 1 bos: Bac #PRC_V_VERIFY,PRC_W_FLAGS(R11),70$ r1F CLR, NO LINE VERIFICATIO 
13F 1 BBS wPRC-VVLEVEL PRC“W-FLAGS(R11),70$ :IF SET, AT CONTROL Y/C LEVE 
144 314 BBS #PRC TV PRC W sFEAGS (RIT), 66$ :1F SET, BATCH JOB 
149 315 TSTL c_C. VENDEPTNCAT INTERACTIVE LEVEL 0? 
14¢ 16 BEQL O s1F YES, DON'T ECHO 
166 1 TSTB PRC_B_EXONLYL(R11) SEXE-ONLY PROCEDURE? 
015 18 BNEQ 708 :1F YES, DON'T ECHO | 
0154 319 60$:  MOVL  R3,R1 : THE LENGTH OF THE LINE | 
O97 p BSBW DCLSMSGOUT [OUTPUT INPUT LINE 
015A ; 
O15A 5 ; IF WE JUST READ A FULL=LINE COMMENT, RE-ISSUE READ NOW AS AN OPTIMIZATION. 
015A 5 40S: BBS WPRC_V_CNTRLY,PRC_W_FLAGS(R11),RETURN MUST TAKE IMMEDIATE ACTION 
015F 6 SIF CTRLY HIT = SKIP OPTIMIZ. 
015F ? CLRL = RG [SET NO DOLLAR SIGN SEEN F.A\ 
0161 8 80$: LOCC (R2)+,#5,B°SPECIAL ‘CHECK FOR SPECIAL CHARS 
0166 $9 BEQL RETURN :IF EQL NO MATCH 
016 0 SUBL #3,R0 ‘BLANK OR TAB? 
0168 331 BLSS  80$ SIF LSS YES 
016D 3¢ BEQL RETURN :1F EQL END OF 
O16F 33 DECL R ‘DOLLAR SIGN OR COMMENT? 
0171 34 BLEQU 908 SIF LEQU DOLLAR SIGN 
0173 «= 335 BBS #PRC_V_IND,PRC_W_FLAGS(R11) ,RETURN [BRANCH IF FLUSHING RECORD 
178 36 BRW R :GET NEXT RECOR 
178 37 90$: BBCS #0,R4,80$ SIF CLR, FIRST DOLLAR SIGN 
17F ay 3 | 
He 40 ; IF THE PREVIOUS RECORD ENDED WITH TRAILING SPACES OR TABS, 
O17F 341 ; INSERT A SPACE AT THE FRONT OF THE CURRENT INPUT RECORD SO | 
O17F ae i ; THAT PARAMETERS ARE DELIMITED PROPERLY. | 
Hee 4% RETURN: BBCC #WRK -V_TRAILSPC,WRK_W_FLAGS(R10),10$ IF CLR, NO TRAILING SPACE S_ 
0184 345 MOVB #*A/~/7RO [SET SPACE CHARACTER 
187 46 BSBW DcLSBACK PCHAR :APPEND TO FRONT OF INPUT Bu. 
18A 347 10$: POPR <R2,R3,R4> SRESTORE REGISTERS | 
1 48 MOVB ‘ Rens 7; PRC_B_CONTINUE(R11) ;SET FOR CONTINUATION PROMPT | 
1 4 BSBW  DCLSGETCHAR [GET FIRST CHARACTER OF NEW 
at eecae 
196 3 SPECIAL: 
196 35 LASCIIL /!$/<0>/ / :SPECIAL CHARACTERS 
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198 355; : 
198 $ ; AN INPUT I/0 ERROR HAS OCCURRED IF WE GOT "RECORD STREAM ACTIVE", 
198 : TRY REPEATING THE READ TIMES. IF THAT FAILS, TRY CANCELING ALL 
198 8 ; 1/0 ON THE INPUT CHANNEL AND THEN REISSUING THE READ. 
198 60 [O_ERROR: 
0000'8F 50 81 01 61 CMPW = sa RO, #RMSS_RSAG*XFFFF ZERROR RECORD STREAM ACTIVE 
48 «12 1A 6¢ BNEQ 306 :IF NO CHECK FOR END_OF _FILE 
1A 64 ; 
1A 65 ; WE DON'T WANT TO HAVE TO CANCEL AN RMS I/O UNLESS NECESSARY. 
1A 66 : RETRY UP SEVE S TO ALLOW CURRENT WRITE 1/0 TO COMPLETE. 
1A ‘ : THIS AVOIDS SPURIOUS WRITE ABORT MESSAGES FROM USER PROGRAMS, 
1A 68 ; CAUSED BY CANCELING AN RMS I/O OPERATION. 
52 O3€8 8F 3C OIA 3 MOVZWL #1000,R2 ;SETUP RETRY COUNT 
05 FO AA O07 «ET OIA 71 BBC #WRK_V_INQUIRE,WRK_W_FLAGS(R10),10$ [SKIP IF NOT INQUIRING 
O1aC cg SETBIT RABSO_PPF_IND,RABS@_ISI(R4) :SET INDIRECT PPF 
181 373 10$: $GET  RAB=(R4) [SEE IF THE WAITING GAVE RMS” 
O1BA 374 CLRBIT RABSV_PPF_IND,RABSW_ISI(R4) [CLEAR INDIRECT PPF | 
20 50 €8 O1BF 75 BLBS RO,208 THE WAIT DID THE TRICK, GO | 
0000'8F 50 «81 dice id: CMP «=—s- RO ARMSS_RSAG*XFFFF ZRECORD STREAM STILL ACTIVE? | 
ge) ig ore 7 BNEQ 308 [BRANCH IF NOT | 
e552 OF g1c9 28 SOBGTR R2,10$ ZRETRY UNTIL STREAM BECOMES — 
O1CC 80 ; | 
ice 81 : CONSTANT RETRYING DIDN'T HELP. CANCEL ANY 1/0 AND TRY AGAIN. | 
ice Hy $CANCEL_S PRC_W_INPCHAN(R11) IF NO LUCK, STOP THE 1/0 ON: 
107? 384 SWAIT “RAB=(R4GJ SWAIT FOR 1/0 TO COMPLETE 
37-11 «+O1E0 «= 385 RB 4 :TRY TO READ AGAIN 
gs us | 
OIE 88 ; READ FINALLY SUCCEEDED. PROCESS THE INPUT RECORD. | 
52 F894 CA 9E OIE 90 20$:  MOVAB WRK_G_INPBUF-2(R10) .R2 :GET ADDRESS OF INPUT BUFFER. 
FEC? 31 OIE? z BRW PROCESS_INPUT SPROCESS THE INPUT LINE | 
O1EA 93; 
O1EA 394 ; WE HAVE ENCOUNTERED AN ERROR OTHER THAN RECORD STREAM ACTIVE. RESTORE THE 
O1EA 395 ; DEFAULT READ FORMAT OF NO INITIAL STRING, NO OFFSET AND RESTORE THE DEFAULT 
OIEA 36 : KEYPAD STATE. 
51 40 AG DO OIEA 38 $0$:  MOVL  RABSL_XAB(R4),R1 :GET ADDRESS OF XABTRM | 
Cal 18 20 1E 9 MOVE  @#ITRM“K_MINLEN, XABSW_ITMLST_LEN(R1) :SET SHORT LENGTH OF ITEM LI 
038C IF 490 BSBW = DCLSLOCRED_STATE :RESTORE LOCKED KEYPAD STATE. 
1F 402 ; | 
1F3 208 > IF WE ARE AT END OF FILE, TERMINATE THE CURRENT PROCEDURE LEVEL AND 
165 404 : READ THE NEXT RECORD FROM THE PREVIOUS PROCEDURE LEVEL. 
0000°8F 50 61 O1F5 a9¢ , CMPW ss RO, #RMSS_EOFS*XFFFF SEND OF FILE? 
38 12 IFA 40 BNEQ 1106S SIF NEQ NO 
62 94 «OFC 4 ; CLRB = (R2) :SET END OF LINE INDICATOR 
38 68 AB 08 E Fe 40 BBS #PRC_V_YLEVEL ,PRC_W_FLAGS(R11) ,50$ SIF SET, AT CONTROL Y/C LEVE 
FO AA E 20 410 BBS #WRK-V~ INQUIRE ,WRR_@_FLAGS (R105 ,50$ :BR IF BOING AN INQUIRE | 
5C AB OD 08 411 TSTL —- PRC_C_TNDEPTH(A11) TINDIRECT LEVEL ZERO? 


—E 8 
READR READ AN INPUT RECORD 16- “S$ 4 00:11:48 VAX/VMS Macro v04-00 Page 10 
vi vee ty READ NEXT INPUT RECORD Pa} 98 98: 43; #8 DCL.SRCJREADREC.MAR; 1 ia < 
21 3 B 413 BEQL 708 IF EOL YES 
FDFO’ 413 BSBW  DCLSUNSTACK SUNSTACK INDIRECT FILE 
1 415 ; 
1 416 3 IF WE JUST RETURNED BACK TO LEVEL 0, FORCE THE PROMPT STRING BACK TO NORMAL 
41 ; BEFORE RE*ISSUING A READ FOR THE NEXT COMMAND. 
5C AB Ds 1 119 , TSTL  PRC_L_INDEPTH(R11) ; INDIRECT LEVEL ZERO? | 
0 1 13 420 BNEQ 40S [BRANCH IF NOT 
0OF3 CB O94 13 4 CLRB  =—s- PRC_B_CONTINUE(R11) [SET FOR NORMAL PROMPT 
19 423; 
19 é é 3 IF CURRENTLY PROCESSING A LINE CONTINUATION, RETURN AN EOL CHARACTER. 
19 4 $ : IF INDIRECT FILE RECOGNITION IS DISABLED, THIS IS A FLUSH OF A COMMAND WITH | 
19 427 ; "="" AS THE LAST CHARACTER. RETURN AN EOL CHARACTER. OTHERWISE, PROCESS | 
i r 8 ; THE LINE JUST READ 
0D 68 AB 4206)«6E0 «(0219 «= 430 408: ~— BS #PRC_V FLUSH PRC_W_FLAGS(R11) ,50$ :IF BIT IS SET, THEN FLUSH 
08 68 AB OCOOS~SsCE‘OD 1 431 BBS #PRC-V~IND,PRC_W-FLAGS(R11) ,50$ s1F BIT IS SET,THEN FLUSH | 
03 FO AA 03 £0 4 ¢ BBS #URK- v “CONT ING ORR _W_FLAGS (R10) ,50$ s1f BIT IS SET,THEN FLUSH | 
FDDC i 0228 4 BRW REINP ~ [READ THE NEXT LINE | 
FFS1 931 0 8 434 50$:  BRW RETURN ‘FLUSH THE RECORD | 
O22E 436; 
03 E 239 ; IF WE GOT AN END OF FILE WHILE READING THE LEVEL 0 PROCEDURE IN A 
022E 438 ; NON-INTERACTIVE JOB, TERMINATE THE JOB STEP. IGNORE EOF'S (CTRL/Z) 
0g E 439 ¢ IN AN INTERACTIVE JOB. | 
14 68 AB 04 gS 0 ; 441 70$:  BBCC  #PRC_V_GOTO,PRC_W_FLAGS(R11),90$ :BR IF NOT IN A GOTO 
FOCA' 30 0 44g BSBW DCLSDE KiLGoTé :DEALLOCATE GOTO SYMBOL 
6236 44 STATUS USGOTO :SET FINAL STATUS OF UNSTATI 
oe48 Aad SeTBIT WRK_V_COMMAND ,WRK_W_FLAGS(R10) ZRARK COMMAND EX ECUTION ERRO 
FDB9' 30 0244 446 80$:  ®8SBW DCLSSET STATUS 'GIVE ERROR HANDLER A CHANCE 
68 AB OE EO 47 its 90$: BBS oereay-Coctore »PRC_W_FLAGS(R11),- :1F SILENT LOGOUT REQUESTED | 
(8 68 AB O06) «COE1 «(0260 BBC Ff RC_V"MODE ,PRC_W_FLAGS(R11) ,40$ tI NOT BATCH JOB, IGNORE EO | 
Fat’ 31 6 HH $29 BRW DCLSABORT LOG OUT BATCH JOB | 
| 
54 452; | 
0254 138 : SOME OTHER TYPE 70 1/0 ERROR HAS OCCURRED. ISSUE AN ERROR MESSAGE . | 
54 454 ; THEN TERMINATE THE CURRENT PROCEDURE LEVEL AND PARSE THE NEXT COMMAND. | 
34 439 : IF THE ERROR WAS INSUFFICIENT QUOTA, THEN CANCEL THE CTRL/Y AST, OUTPUT | 
24 436 t THE ERROR MESSAGE, AND THEN LOG THE PROCESS OUT. | 
54 458 110$: SETBIT WRK_V COMMAND WRK_W_FLAGS(R10) ;MARK COMMAND EXECUTION ERRO| 
00000000' 8F 50 D4 38 439 CMPL RO. FSSS_ EXQUOTA 1S ERROR DUE 9 EXCEEDED QU 
$1 463 ASSUME RASSETSIV EO RegSt mst eee 
0084 (B 4208 AG) O7D 6} 46s aes mova RABSL~STS(R4) ,PRC_C_STS(R11) :STORE STS. AND, sty, VALUES 
18 68 AB 08 £ 6A 465 BS #PRC_V_YLEVEL,PRC_W_FLAGS(R11),STATUS IF SET, CNTL Y/C LEVEL 
13 FO AA FD 6F 46 BS #URK ~V~ INQUIRE ,W RR _Q_FLAGS(R1 1055s TATUS :SKIP If IN INQUIRE 
5C D 4 46 TSTL) =P f C_TNDEPTH cAT | INDIRECT LEVEL ZERO? 
07 +12 0277 468 BNEQ 1308 :1F NEQ NO 
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DCL.SRCJREADREC.MAR; 1 (6) 
3BR IF BATCH 


SSAVE ERROR/STATUS VALUE 
"UNSTACK INDIRECT FILE 
TRESTORE ERROR/STATUS VALUE | 


SET COMPLETION STATUS 


—_ OO er Or Or. Vor ——— SS —_——— _ 


G 8 | 
vo4~000 READ NEXT INPUT RECORD "ESEp=1986 BB:2:82 EDEL YSAcTeEADaeC-man:1 =| P88" 1), 


D 478 ; 
p a7 OUTPUT AN ERROR MESSAGE AND LOG THE PROCESS OUT 
50 p D 481 ABORT: PUSHL RO :SAVE THE STATUS | 
FOG . 2. BSW DCLSDSBCONTRLY ‘CANCEL THE CTRL/Y AST 
BED 4 POPL R SRESTORT THE STATUS 
95 484 ERRMSG SOUTPUT THE ERROR MESSAGE 
FD6S' 31 98 4 3 BRW DCLSABORT ‘LOG THE PROCESS OUT 
98 487 ; 
9B 4 8 : PERFORM A SILENT LOGOUT BY CANCELING THE SUPERVISOR MODE EXIT HANDLERS | 
98 489 : (SO THAT THE PROCESS IS DELETED), AND INVOKING SEXIT WITH THE LATEST | 
38 430 : STATUS FOR THIS PROCESS. 
98 49¢ SILENT_LOGOUT: : 
FD62" 30 0298 49 BSBW  DCLSCLOSE_PPFS sCLOSE ALL PPF FILES STILL O| 
50 1C AB dO 0 H 49% MOVL PRC_L_INDFAB(R11),RO [GET ADDR OF INDIRECT FAB. | 
0114 cB. BO 0 A2 495 MOVW  PRC“WTOUTIFI(R11).- 'GET INTERNAL FILE INDEX OF | 
02 AO Ag 496 FABSW~ IF ICRO) : 
02A8 49 $CLOSE FAB=(RO) SCLOSE INDIRECT OUTPUT FILE | 
0281 498 SCANEXH_S [CANCEL SUPERVISOR MODE EXIT | 
02BA 499 SEXIT_S"PRC_L_LSTSTATUS(R11) ZEXIT PROCESS WITH FINAL STA| 
} 


—— 


READR = READ AN INPUT RECORD 16-SEP-1984 00:11:48 VAX/VMS Macro v04-00 Page 1 
reat ty PROCESS RECALL COMMANDS aoe tt Begg DCL. SRCJREADREC.MAR; 1 ag 
c 1 .SBTTL PROCESS RECALL COMMANDS 
c § : PROCESS_RECALL = PROCESS RECALL COMMANDS 
( 5 : SUBROUTINE TO CHECK FOR AND PROCESS CTRL/B AND ARROW RECALL COMMANDS. 
; § > INPUTS: 
C § : Re: ADDRESS OF NEW INPUT RECORD 
¢ 10 ; = LENGTH OF NEW INPUT RECORD, EXCLUDING NULL AT END OF LINE 
e 1 ; R4 = ADDRESS OF RAB 
cS 18 : OUTPUTS: 
02cS) = 515: INPUT BUFFER IS INITIALIZED 
0 C3 16 ; RO IS SET 
C3 318 PROCESS_RECALL: :PROCESS RECALL COMMAND 
c5 0; 
a 3 1 : CHECK FOR CTRL/B. 
oc as «60020«Oo9s«COacS—sCS5 j ; CMPB #02. RABSW_ STVO(R4) ; TERMINATOR CTRL/B? 
06 13 0209 524 BEQL RECALL PREV [YES, THEN PROCESS IT 
50 01 dO O2cB 525 MOVL #1,R RO SRETURN 
05 O2ce 5§ 6 RSB ; 
Be 
O3cF 3 3 : REPROMPT WITH THE PREVIOUS COMMAND. 
osc 531 RECALL_PREV: 
O2pF 30 Oocr § : BSBW BCLSLOCKED STATE ZRESTORE LOCKED STATE 
cS AA (95 (OO be 7 TSTB ©: WRK_B_RECACLCNT(R10) SFIRST TIME? 
16 13 02D 334 BEQL TYES, THEN ALWAYS GO AHEAD 
EA BA %3 0 D7 335 STB soex.L_RECALLPTRCRIO? :POL NTER A ADJUST. BY RECALL_NEXT? 
EA AA 07 0 DC H BECL WRK_L_RECALLPTR(R10) YES, SET IT BACK TO NORMAL 
012F CB D1 0 DF 3 9 5s CMPL = PRC_L_RECALLPTR(R11),- :RETURNED TO THE ORIGIN? 
EA AA E3 40 WRK-L-RECALLPTR(R10) : 
38 «613—=«O2E 41 BEQL LIST : 
cS AA 91 E7 4g CMPB a ee nc - [MAX # OF COMMANDS DISPLAYED? 
5 13 O2EB 544 BEQL © END _ OF : 
2 7C 8 EB 45 10$: CLRO <=(SP) ~ SALLOCATE A DESCRIPTOR 
SE DD O2EF 46 PUSHL SP [PUSH DESCR ADDRESS 
0000'CF or FB O2F1 54 CALLS #1,0CLSGET_PREV_COMMAND iREC ALL THE SPECIFIED COMMAND 
17 50 £9 Fg 48 BLBC : :BRA NCH IF NO COMMAND WAS FOUND 
so, 088 SE ERE HAR PRESE-RSGALNTN Dg ABE SCALA PORME anc of ure 
EA AA 5 p1 1 31 cmPL ORR_L MRECALLPTRCRIO) TARE “ve " "BEGINNING OF BUFFER? 
EA AA 06 , 38 INCL  WRK_L_RECALLPTR(R10) iii FIX POINTER T TO INDICATE 
a} AA 91 A 38 15$ CMPB BURR C“RECALLMAKSL ° x # OF EOMRARDS DISPLAYED? 
— E 3$ BNEQ RECACL—CURR ‘BRANCH IF NOT NOW MAX 
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OWTmMemw —~s 
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NPUT RECORD 16-SEP=1984 00:11: 
LL COMMANDS orSEb =i obec ea 
5 20$: ADDL #8,SP 
2 BRB ENO_OF_LIST 
61 ; 
6@ ; REPROMPT WITH THE COMMAND THAT IS ON THE STACK. 
4 RECALL_CURR: 
BSBW = ERASE_LINE 
mMOVa  (SP)+7R1 
BSBW —« INSERT_COMMAND 
MOVL #3,RO0 


: REPROMPT WITH A BLANK LINE. 


END_OF _LIST: 
8 ERASE LINE 


BSBW INSERT_ COMMAND 
meee #3,R0 


: REPROMPT WITH THE NEXT COMMAND. 


ECALL_NEXT: 
BSBW pc SL Ocnee STATE 
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RESTORE THE STACK 
OUTPUT A BLANK LINE 


NOTE: WHEN AT BEGINNING OF BUFFER (NU 
SPECIA NG IS DOWN. TH 


m~<— 


o-r-owmn 
o 
Se 
We — 
== 


RETRIEVED WITH THE DCLSGET_NEXT_ 


3 PO EN 
; IN THIS CASE, THE POINTER IS CORR 
i 


TSTB B_RECACLCNT (R10) 

- BEQL END -r* LIST 

e: TSTB © @WRK_L_RECALLPTR(R10) 
§ : BEQL 25$ 

4° DECL WRK_L_RECALLPTR(R10) 
09 BRB 30$ 
Na 25$ SUBL3. #1, WRK_L_RECALLPTR(R10) ,RO 
08 MOVAB «PRC aS- CORMANDS (R11) ),R1 
9 CMPL sR 

10 BGEQU 2 

11 MOVAB PRC_C_CMDRUFSIZ(RO) .RO 
1 288: STB (ROY 

13 BNEQ 308 


—~ 


genase THE PREVIOUS Lie 
GET oo DESCRIPTOR 
;MODIFY THE XABTRM 


a RETURN STATUS 


ERASE THE PREVIOUS LINE 
INIT COMMAN wraata phe 
;REPROMPT WITH THIS COMMAND 
SET REPROMPT RETURN STATUS 


NG CURRENT RECORD) 
R_COMMAND IS USED 
NECREL POINTER IS USED 
IRST COMMAND IN THE 
NORMALLY, THE POINTER IS POINTING 
YTE ALWAYS NULL ). IF THE 
IT MEANS THAT THE FIRST 
EN * PROCESSED (THE POINTER WILL 
6 Th HE NULL ). - 


THE COMMAND 
AND MINSTEAD OF DCLSGET_CURR_COMMAND. 


yet pes: LOCKED STATE 
Y NEXT COMMANDS TO RECALL 
NO. THEN REPEAT CURRENT COMMAND 


sPOINTING TO BEGINNING OF COMMAND? 
;YES, HANDLE NORMALLY 


ZNO, ADJUST POINTER 
[AND GET NEXT COMMAND. 


:POINT RO TO CURR. COMMAND-1 
;R1_ = ADDR. or BEGINNING OF BUF. 
BUFFER UN UNDERF LOW? 


0 Ok AS IS 

ives. POINT RO TO TOP OF BUFFER 
VIOUS COMMAND EXIST? 

YES. PROCESS NORMALLY 


= READ AN INPUT RECORD 16-SEP-1984 211: AX/VMS Macro v04-00 Page 15 
PROCESS RECAL ti COMMANDS ya aet} 7 90: 1b: 38 DCL. SRCJREADREC.MAR; 1 ve 
615 ; SPECIAL CASE: THERE ARE EXACTLY 21 COMMANDS IN THE COMMAND BUFFER 
1 ; AND RECALL_PREV HAS RETRIEVED THE LAST VALID COMMAND (IT LEAVES 
i ; POINTER TO-FIRST COMMAND.) IN THIS CASE, DO A GET NEXT INSTEAD OF 
619 : 

CS AA 91 620 CMPB  =—s- WRK_B_RECALLCNT(R10),- :HAVE MAX. COMMANDS BEEN DISPL? 
15 B 621 sunk _C_RECALLMAX+1 
0— 13 3¢ 6 : BEQL 508 :YES, GET NEXT COMMAND. 
7E 7C O35E 626° CLRQ 2s = (SP) 3NO, ALLOCATE A. DESCRIPTOR 
SE DD 0360 625 PUSHL SP [PUSH DESCRIPTOR ADDR 
01 FB 036 6 $ CALLS #1,DCL$GET_CURR_COMMAND :GET CURRENT LOMMAW 27 

AAA 06 036 INCL WRK_L RECA att RReRIOD SINDICATE 1ST COMMAND PROCESSED. 
A911 6A 6 8 BRB RECALE SOUTPUT CURRENT COMMAND 
7E 7C 036C 630 08 CLRQ 2s = (SP) sALLOCATE A DESCRIPTOR 
SE DD : 631 PUSHL SP [PUSH DESCR ADDRESS 

oo0o'cr 01 FB 6 & : CALLS #1,D0CL$GET_NEXT_COMMAND TRECALL THE SPECIFIED COMMAND 

CS AA 97 0375 6 DECB WRK B RECACLCNTTRIO) ;DECREMENT THE RECALL COUNT 

98 12 0378 634 BNEQ R CREE CURR ANCH IF NOW SERO 
SE 08 CO O37A 635 ADDL SP tRESTORE THES Src 

A311 037D 636 BRB Eno _OF _LIST ‘OUTPUT A BLANK LINE 
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ECALL COMMANDS 
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638 ; 
§ 3; ERASE THE CURRENT LINE IF THE TERMINAL IS ANSI CRT. 


40 ; 
$} ; 

23 RASE LINE: 
44 CLRQ 
645 PUSHAB 
968 PUSHL 
64 CLRQ 

968 

64 

650 

i 

re BLBC 
654 MOVZWL 
$2? BLBC 
ga9 BBC 
658 MOVL 
659 10$: MOVA 
660 MOVZ 
661 DISA 
066 INSV 
664 $PUT 
665 INSV 
666 
fe 
669 MOVL 
670 CLRW 


671 
676 90$: ADDL 
67 RSB 


RO,RS ARE DESTROYED 


-($P) 
-8(SP) 
#DV1$_DEVDEPENDZa16+4 


MOVL SP,RO 
SGETOVIW.S EFN=#EXESC_SYSEFN,- 
HAN=PR 


W BCHANER TT) 

[TALS TeSTROS 
10$B=(RO) 
RO,90$ 
(SP) RO 
RO,90$ 
#TT2$V_ANSICRT,8 
PRC_L_OUTRAB(RI1 
ERASE?1,RABSL_RB 
ERASE ,RABSW_RSZ( 

A 


#0,#RABSV_PPF_R 
#RABSS_PPF_RAT,R 
RAB=(R5) 

#F ABSM_CR, #RABSV 
#RABSS_PPF_RAT,R 


IS1(R5) 


ao & ao 


Su. 
PF_RAT,- 
$W~1S1(R5S) 


PRC_L_TRMLIST(R11) ,RO 


@1TRM“L_PMPTADDR(RO) 
#6*4,SP 


[BRANCH IF ERROR 
‘GET IO0SB STATUS 
[BRANCH IF ERROR 


BRANCH IF ANSI CRT BIT CLEAR 
SET ADDRESS OF OUTPUT FILE RAB 
SET ADDRESS OF OUTPUT RECORD 
sSET SIZE CORD 
sDISABLE C 

DISABLE CR FORMAT WRITES 
sOUTPUT RECORD 

sENABLE CR FORMAT WRITES 


TENABLE CONTROL Y/C AST'S 


;GET ADDRESS OF XABTRM ITEM LIST 
sREMOVE CR/LF FROM PROMPT STRING 


RESTORE STACK 
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ES 4=SEP=19 

.SBTTL PROCESS ESCAPE SEQUENCES 
; PROCESS ESCAPE = PROCESS ESCAPE SEQUENCES 
SUBROUTINE TO CHECK FOR AND PROCESS ESCAPE SEQUENCES. 
INPUTS: 
RZ = ADDRESS OF NEW INPUT RECORD 


: = LENGTH OF NEW INPUT RECORD, EXCLUDING NULL AT END OF LINE 
$ R4 = ADDRESS OF RAB 


DCL.SRCJREADREC .MAR; 1 


; OUTPUTS: 
Re = ADDRESS OF NEW INPUT RECORD 
R35 = LENGTH OF NEW INPUT RECORD, EXCLUDING NULL AT END OF LINE 


PROCESS_ESCAPE: sPROCESS ESCAPE SEQUENCES 


CHECK FOR ESCAPE SEQUENCES. 


CMPB #1,RABSW_STV2(R4) i a oy hed 
BLSSU THEN PROCESS 
SBW DCLSLOCKED_STATE RES tone LOCKED + Nag STATE 
MOVL #1,R0 SET REPROMPT STATUS 
RSB RETURN 


REPROMPT IF NO KEY OR SYMBOL FOUND. 


40s: mova (SP) +484 Est ORE R4/RS 


sREST 
80S: MOVa (SP)+, SRESTORE R2/R3 
MOVL R3,R1 SCREATE R1/R2 DESCRIPTOR 
BSBB INSERT_COMMAND :REBROMPT WITH THIS COMMAND 
BSBW DCLSLOCKED_STATE ;RESTORE LOCKED KEYPAD STATE 
ROVE #3,R0 SET REPROMPT STATUS 


FIND ASSOCIATED META-KEY NAME. 


bs MOVQ =e R2,, = (SP) TSAVE R2/R3 
CLRL Os = ( §P) TALLOCATE SPACE FOR RETURN ADDRESS 
PUSHL SP :POINT AT IT 
MOVZBL RAgty, g1v2(R4), (SP) 'GET TERMINATOR LENGTH 
PUSHAB 3GET TERMINATOR ADDRESS 
CALLS #3,G°GET_KEY_NAME LOOK UP THE ESCAPE SEQUENCE 
MOVL  (SP)+,R27 ‘tet ADDRESS OF ASCIC META-KEY NAME 
BLBC) OséR Pag [SKIP IF NONE 


; SPECIAL CASE UP AND DOWN ARROW KEYS. 


CMPB a z1S THE sree SHORT ENOUGH? 
BGTR 10 :NO, THEN SKIP 
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n 8 
RECORD 16*SEP=1986 00:11:48 
EQUENCES o-8Ep=1984 98: 13:98 
CMPW = «1(R2),#*A*UP* 
BEGL 8S 
CMPL (R2) ,#*A"DOWN® 
BNEG 108 
7$ MOV  (SP)+,R2 
BRW RECALC_NEXT 
3h mova =: (SP) +, R2 
BRW RECALL_PREV 


FIND ASSOCIATED SYMBOL VALUE. 


3 
1 3; /ERASE = COPY STRING INTO INPUT BUFFER. 


BBC SS UM_V_ERASE .A4 .208 


PUSHL 
CLRL (SP) 
MOVL 16(SP),R5 
PUSH 
MOVC R1,(R2),(R5) 
POPL RG 
BRB 30$ 

95$: STATUS BUFOVF 
B5BW BCL SLOCKED_STATE 
BRw 67$ 

96$: 


STATUS SYMOVF 
BRW 66$ 


; /NOERASE = COPY STRING INTO INPUT BUFFER. 
20$:  — ADDL3 Rt 12(SP),=(SP) 


CMPL (SB), #WRK_C_INPBUF SIZ 
BGTRU 95$ 
ADDL3 16(SP),12(SP),R5S 

VL 4(SP ¥ 
MOVZBL RABSW.STV2+1(RO) .R3 
SUBL R36R9” 
SUBL3 -R3. 164SP),-(SP) 
PUSHR #°M<R1 she R3_R4_.RS> 
MOVC3 RB, 4 (R95 (RS) ER14 
POPR #*<R Ro RS. a? R5S> 


AX/VMS Hac ro V04-00 Page 
DCL.SRCJREADREC.MAR; 1 

;CHECK FOR UP ARROW 

Hart IF MATCH 

3CH ace ‘ pag B ARROW 

BRANCH IF MATCH 

RESTORE R2UR 3 

; O THE REC 


:D0 THE RECALL 


sSAVE R4/R5 

3GET DESCRIPTOR OF SYMBOL NAME 
7SEARCH SYMBOL TABLE FOR MATCH 
SKIP IF NOT FOUND 


: (SP) = INITIAL OFFSET 
; 4(SP) = W COMMAND LENGTH 
3 8(SP) = ay 
; 12(SP) =R 
; 16(SP) = INITIAL COMMAND ADDRESS 
; 20(SP) = INITIAL (LATER NEW) COMMAND LENGTH 
10$: mMOVQ  R4,-(SP) 
MOVZBL (R2)+,R1 
BSBW  DCLSSEARCH_KEYPAD 
BLBC = RO, 708 


z1F /NOERASE, _— SKIP 
;SAVE NEW LENGTH 

3SET INITIAL OFFSET 

GET INITIAL ADDRESS 

SAVE FLAGS 

;COPY VALUE TO INPUT BUFFER 
RESTORE FLAGS 


SET OVERFLOW STATUS 
sRESTORE LOCKED KEYPAD STATE 
RETURN ERROR 


sSET OVERFLOW STATUS 
;RETURN 


oO 
“ 
= 


= READ AN INPUT RECORD 16-SEP-1984 00:11:48 YAX/VMS Macro v04-00 Page 20 | f 
PROCESS ESCAPE SEQUENCES att Oe bie DCL. SRCJREADREC.MAR; 1 ° (9) ‘ 
4 4(B 0 PUSH R4 SAVE FLAGS { 
62 5 BB 4CD : mOvCS R1,(R2),(R5) :COPY VALUE TO INPUT BUFFER { 
4 BEDO 0401 4 POPL R4 SRESTORE FLAGS { 
404 5 \ 
4D4 $ : | 
406 6 ; PROCESS /SET_STATE AND /LOCK | 
OODA 30 04D4 09 $0$: BSBW OCLSLOCKED_STATE sRESTORE LOCKEL KEYPAD STATE ( 
4 0¢ E1 0407 810 BBC #SYM_V_STATE,R4, 508 SBRANCH IF NO SET STATE SPECIFIED | ( 
2 D0 0408 811 MOVL R1,R2 ‘GET LENGTH/ADDR OF STATE STRING { 
1 82 2, 4D 1 MOVZBL (R2)+,R1 : ( 
FBIC' p 4E 1 BSBW DCLSALLOC_STATE SALLOCATE IT ( 
AD 5 £ GEG 14 BLBC RO,96 ;BRANCH IF NO ROOM FOR SYMBOL t 
54 03 €1 O4E7 815 BBC #SYM_V_LOCK,R. 0$ SBRANCH IF NOT /LOCK 
4C AB b0 4EB 16 MOVL  PRC_C_CASTKEY(R11),RO [GET OLD LOCKED STATE { 
FBOE’ O4EF 1 BSBW OCLSDEALLOC_STATE SDEALLOCAT. IT { 
48 AB DO «(04F 18 MOVL PRC_L_CURRKEY(R11),=- ;LOCK NEW KEY STATE ( 
4C AB Q4F 19 PRC~L-LASTKEY(R11) : | 
ore 1 3 ( 
Our? ‘ : : PROCESS /ERASE. 
54 06 é! 04F7 824 508: BBC #SYM_V_ERASE,R4,52$ :1F /NOERASE, THEN SKIP { 
FE81 30 O4FB 825 BSBW ss ERASE. SERASE THE LINE { 
01 €1 Oar 826 BBL #SYM_Q_TERMINATE,R4,52$ [IF /NOTERMINATE, THEN SKIP { 
0c AB DO 0502 827 MOVL  PRC_C_OUTRAB(R115 ,R5 [SET ADDRESS OF OUTPUT FILE RAB | { 
10 AB CDO 0506 828 51$:  MOVL  PRCWL~TRMLIST(R115,RO [GET ADDRESS OF XABTRM ITEM LIST { 
10 AO D0 «050A $9 MOVL _17PA_C_PMPTADDR(ROS ,- ‘WRITE THE PROMPT STRING { 
28 AS 9500 830 RABSC_RBF (RS) : ( 
0c AO) «6B0 «(050F 831 MOVW =s:sITRM_@ PRPTLEN(RO) ,~ ; { 
22 AS 0512 3¢ RABSQ_RSZ(R5) : { 
0514 83 DISABLE ‘DISABLE CONTROL Y/C AST'S { 
06 00 FO 0518 834 INSV #0, #RABSV_PPF_RAT,- [DISABLE CR FORMAT WRITES { 
AS 08 0518 835 #RABSS_PPF_RAT,RABSW_ISI(R5) ( 
O51E 836 $PUT  RAB=(R5) SOUTPUT RECORD { 
06 02 FO 0527 837 INSV  #FABSM_CR,#RABSV_PPF_RAT,- TENABLE CR FORMAT WRITES { 
AS 08 052A 838 #RABSSPPF_RAT,RABSW_ISI(RS) — ; | { 
0520 839 ENABLE TENABLE CONTROL Y/C AST'S 
O52F 840 { 
52F 46841 : { 
3 F Bie : PROCESS /ECHO. 
54 01 +€1 O52F 844 528: BBC #SYM_V_TERMINATE ,R4,60$ s1F /NOTERMINATE, THEN SKIP | 
54 00 «€1 3 3 45 BBC #SYM-V"ECHO,R4,65$ [IF /NOECHO, THEN SKIP 
Oc AB DO 46 MOVL PRC C_OUTRAB CRIT) .R5 [SET ADDRESS OF OUTPUT FILE RAS 
04 Ag DO 0538 847 55$:  MOVL 4(SP)<R [GET SIZE OF OUTPUT RECORD 
AE OS ci 53F 40848 ADDL3 RO, 16(SP),R1 ‘FIND END OF OUTPUT RECORD 
61 0D 90 0544 849 MOVE #*kOD, (R15 SINSERT CR AT END | 
50 of C2 0547 850 SUBL (SP) RO ‘SUBTRACT OUT INITIAL OFFSET 
51 C3 054A 851 suBLS RO,R1, RABSL_RBF (RS) [SET ADDRESS OF OUTPUT RECORD | 
50 «(01s ATs GF 3 ADDW3 = #1, RO, RABSW_RSZ(R5) ‘SET SIZE OF OUTPUT RECORD | 
554 85 DISABLE ‘DISABLE CONTROL Y/C AST'S 
06 00 FO 0558 «854 INSV #0, #RABSV_PPF_RAT,- ‘DISABL” CR FORMAT WRITES 
A 8 558 855 #RABSS_PPF_RAT,RABSW_ISI(RS) — ; | 
356 36 $PUT B=(R5) [OUTPUT RECORD | 
06 92 FO 056 5 INSV  #FABSM_CR,#RABSV_PPF_RAT,- TENABLE CR FORMAT WRITES | 
02 A 56A 858 #RABSSPPF_RAT,RABSWIISI(RS) — ; 
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+ 7 -SBTTL RESTORE LOCKED KEYPAD STATE 
4 of ; DCLSLOCKED STATE = RESTORE LOCKED KEYPAD STATE 
81 91 ; DELETE ANY TEMPORARY KEYPAD STATE THAT MAY HAVE BEEN SET AND RESTORE THE 
581 3 3; LOCKED KEYPAD STATE. 
581 95; 
581 94 ; INPUTS: 
581 95 ; 
581 96 ; R11 = ADDRESS OF PRC DATA STRUCTURE 
581 97 ; PRC_L_CURRKEY = CURRENT, POSSIBLY TERMPORARY, KEYPAD STATE 
28) 4 ; PRC“L“LASTKEY = DEFAULT LOCKED KEYPAD STATE 
5B1 Bo 3; OUTPUTS: 
5B1 901 : | 
581 B0¢ : PRC_L_CURRKEY IS UPDATED. 
581 903 ; 
581 904 jece 
581 905 | 
581 906 DCLSLOCKED_STATE:: RESTORE LOCKED KEYPAD STATE | 
50 0D 0581 907 PUSHL RO : SAV 
48 AB D1 «2(05B3)— («908 CMPL PRC_L_CURRKEY(R11),- :1S TEMPORARY STATE IN EFFECT? 
4C AB 586 36: 909 PRC_L_LASTKEY(R11) 
oc 13 0588 910 BEQL ?NO Tne DONE 
50 48 AB p8 O5BA 911 MOVL PRC_L_CURRKEY(R11),R0 :GEf ADDRESS OF ASCIC STATE 
FA3F* 30 O5SBE 35 BSBW DCLSDEALLOC STATE {OEALLOCATE TEMPORARY STATE 
4C AB DO O5C1~= 91 MOVL PRC_L_LASTKEY(R11),= SRESTORE THE LOCKED STATE 
48 AB 0504 914 PRC_L_CURRKEY (R11) : 
50 BEDO O5C6 915 908: POPL RO ~ ;RESTORE RO 
05 0509 916 RSB RETURN 
OSCA 917 


READR = READ AN_INP 
vOe-000 EXPAND INPUT 


: 


s. 
®t "ESEP=1986 28:02:82 UDELYSRCHREADRECcman:1 «= P88" FR, 


~SBTTL EXPAND INPUT LINE 
EXPAND = EXPAND INPUT LINE WITH SYMBOL SUBSTITUTIONS 


UT 
LIN 
1 
fA Bae 
wee 
CA § $ SUBROUTINE TO EXPAND INPUT LINE BY EXECUTING ALL STRING SUBSTITUTION 
CA 4 ; COMMANDS. THE UNUSED AREA IN THE EXPANSION N BUFFER IS USED TEMPORARILY 
CA 5 ; TO HOLD THE EXPANDED COPY OF THE COMMAND LINE. AFTER ALL SUBSTITUTIONS 
(A 9 $ : ARE PERFORMED, THE EXPANDED COPY IS COPIED BACK INTO THE INPUT RECORD 
CA 3 : BUFFER SO THAT SEMANTIC PARSING CAN CONTINUE. 
SCA 3 § $ INPUTS: 
He 3 9 : WRK_L_CHARPTR = POINTER TO NEW INPUT RECORD 
CA 3 $ > OUTPUTS: 
Baca 935 : Re = ADDRESS OF NEW INPUT RECORD 
OSCA 936 : R3 = LENGTH OF NEW INPUT RECORD, EXCLUDING NULL AT END OF LINE 
O5CA 937 : WRK_L_CHARPTR = POINTER TO EXPANDED INPUT RECORD 
Seca 988 
O5CA 940 EXPAND: sEXPAND INPUT LINE | 
O3FO 8F O5CA 941 PUSHR #*M<R4,RS,R6,R7,RB,R9> : SAVE REGISTER 
F4BA CA OD 3CE 94g PUSHL WRK_L_MARKPTR(RIO) SSAVE MARKER POINTER | 
F486 CA DD 0502 «94 PUSHL WRK-L-EXPANDPTR(R10) |: SAVE EXPANSION BUFFER. POINTER | 
7E FO AA BO 0506 944 MOVW WRK-WTFLAGS(R10),-(SP) :SAVE CURRENT PARSING FLAGS | 
FO AA 0C20 BF AB O5DA 43 BISW #WRR “al INPSUBST !WRK_M_ wovbaevEnT paste seis UR US FLAGS(RIO) 
0560 947 : PREVENT , UPCASING OF “INPUT CHARS | 
O5E0 948 AND AC AS A TERMINATOR | 
7E B4 O5E0 349 CLRW 2 =(SP) t INITIALIZE ITERATION COUNTER | 
OSE 31 GET NEXT CHARACTER FROM INPUT RECORD 
FAB’ 30 ber 335 ios:  BsBw DCLSGET CHAR :GET NEXT CHARACTER FROM INPUT LINE | 
7 33 3b BRR Re guee SOS TE ues rene segs | 
27 FO AA (04) =COE:s«COOSEA (956 BBC #WRK_V Quore, WRK_W_FLAGS(R10) ,20$ F LBC NOT IN QUOTE | 
FAQE® 50 O5Er 957 BSBW DCLSSE TCH : CHECK Next CHARACTER | 
27. —«5 1 ae 958 CMPBéRRO,# 3NEXT CHARACTER ALSO SINGLE QUOTE? | 
05 12 O55 959 BNEQ 60 [IF NEQ NO 
FA06' 30 O3t7 960 BSBW DCLSGETCHAR ‘GOBBLE SECOND SINGLE QUOTE 
1A SEA 6) BRB 20$ [TRY SYMBOL SUBSTITUTION | 
ie ge | ONE SINGLE QUOTE WAS DETECTED IN A DOUBLE QUOTED STRING - TREAT LITERALLY | 
50 27 9A BEC 963 0s: MOVZBL  #*A/"/,RO TINSERT SINGLE QUOTE WITHIN STRING 
SFF 369 : IF COMMENT IS DETECTED, THEN DO SUBSTITUTIONS BUT IF AN ERROR IS 
SEF 36 : DETECTED, THEN NO ERROR IS ISSUED AND A NULL STRING IS SUBSTITUTED. 
OA FO AA 04 £0 SFF 6970 70$: ~— BBS wuRk nV 2QyOTE. WRK_W_FLAGS(R10),80$ ;BRANCH IF IN. QUOTED STRING 
nm 6S 1 0604 971 CMPBeéRO# iSTART 0 F COMMENT STRING 
12 $07 976 BNEQ 80 AN H° rr NOT A COMMENT 
609 97 SETBIT WRK_V_COMMENT,WRK_W Fu ne§ R10) -MARK WE ARE IN A COMMENT 
608 97% O THAT ERRORS ARE NOT REPORTED 


i _ — 


wg aones = READ AN INPUT RECORD is bb ats tb 4 t 99: 3: $8 AX/VMS Macro Vv04-00 Page (34) 


EXPAND INPUT LINE 46-SEP-1984 DCL.SRCJREADREC.MAR; 1 
oof 976 WRITE THE CURRENT CHARACTER INTO THE EXPANSION BUFFER AND LOOP 
FOEF’ 3 4 F 28 bos:  BsBw DCL SPUTCHAR PUT CHARACTER IN EXPANSION BUFFER 
CF 12 061 ? BNEQ NOT EOL, KEEP N 
0089 3 613 2 -E 90$ ‘en ND OF CINE = TERMINATE SCAN 
616 9 gi ? SYMBOL SUBSTITUTION REQUESTED. GET THE SYMBOL AND SEARCH THE SYMBOL 
616 : 33 TABLE, AND IF NOT FOUND THERE, TRY AS A LEXICAL FUNCTION. 
F486 CA DD 0616 985 30S: —- PUSHL WRK_L_EXPANDPTR(R10) :SAVE PLACE IN. EXPANSION BUFFER 
7E FO AA BO O61A 9 6 MOVW WRK-W-FLAGS(R10),<(SP) SAVE LEXICAL FLAGS 
FO AA 10. =AA 61g 3 BICW  #WRR_M_GUOTE,WRK.W_FLAGS(R10) 
EO 06 8 BBS #WRK-V~ COMMENT ,= sARE WE IN A COMMENT? 
06 FO AA 624 989 WRK _@_FLAGS(R16) ,22$ 
FO AA 0800 BF AA Oe f 44 BICW WURR _A_NOUPCASE ,WRK_W =P MPRETEND ui"? roan urenes THE SYMBOL 
62D 936 '$0 GETOKEN STOPS BEFORE END-OF -STRING 
50 27 9A 06 D 993 22$:  MOVZBL #*A/'/ SINSERT SINGLE QUOTE WITHIN STRING 
F9CD' 30 6 9 994 BSBW OCC SPUTCHAR SIN CASE SUBSTITION NOT ALLOWED 
FOCA’ 30 a : 999 BSBW DCLSGETOKEN :GET/COPY NEXT TOKEN 
636 997 : IF IN COMMENT, ONLY ALLOW FSVERIFY TO BE SUBSTITUTED 
29 FO AA «OC”sé* bese 999 ° BBC wun V_COMMENT ,WRK_W_ FLAGS(R10) 28$ ;BRANCH IF NOT IN COMMENT 
06 51 1 0638 1000 CMPL ai AT LEA EAST 4 CHARACTER TOKEN? 
1¢ 619 063E 1001 BLSS ose" SYMBOL SUBSTITUTION 
7E 62 00 064 1008 MOVL (R2),=(SP) ‘BUSH ROT FOUR CHARACTERS 
7E «651=— oD 064 100 MOV = R'1, =< SP) TSAVE DESCRIPTOR 
- 51 . 04 9A 0646 1004 MOVZBL gent t [CREATE TEMPORARY DESCRIPTOR 
F9B0" 30 064D 1006 BSBW DCLSUPCASE SUPCASE THE SYMBOL 
51 8—& 7D 630 100 MOVQ (SP) +,R1 i RESTORE THE REGISTERS 
45562446 BF BE Dt 635 1008 CPL (SP)+ "A" FSVE' HHS 1 IT FSV SVERIFY WITHIN A ¢ COMMENT? 
02 AE F486 cA 00 065 1940 25$: MOVL URE. _EXPANDPTRCRIOD ,2¢SP). toby TEYMBOL TO EXPANSION BUFFER 
+ 98 Shee jo1s -° ~—peat os Tenn 
56 51.— oD bees 1014 MOV = R16 i SAVE STRING PARAMETERS 
F992" 30 0668 1015 BSBW DCLS$SEARCH :SEA RCH FOR SYMB 
1650 E8 0666 1 16 BLBS  _RO,40$ LBS YMBOL DEFINITION FOUND 
0671 101 CLRBIT WRK_V_INPSUBST,WRK_W_ FLAGS (RI ) 3D0 PROCESSING OF !,-,a,ETC. 
0676 1 18 LLOW CONT INUATLONS IN FUNCT. ARGS 
oc (€1 676 101 BBC #WRK_V_C SARE ve IN A COMMENT 
09 FO AA 78 1020 WRK @_ FLAGS(RIO) , 325 
51 56 7D 0678 1021 mova =s_-R6, R17 sYES, THEN UPCASE "FSVERIFY’ 
FO7F® 30 4 1 : BSBW DCLSUPCASE 
56 51 D 0681 1 MOVQ = RT, RO 
F979" 30 684 1026 328: BSBW DCLSLEXIE sEVALUATE abEXICAL FUNCTION 
F976" 687 1025 40$:  BSBW ODCLSCVT STRING VERT SULT TO CHARACTER STRING 
6 A : SETBIT WRK_V VINPSUBST, WRK_W “FLAGS IRI ) DISABLE 1 =,@,ETC. 
é i : : TRAILING SINGLE QUOTES ARE OPTIONAL AFTER SYMBOL - GOBBLE IT 
F96E" 30 68F 1030 ° BSBW DCLSSETCHAR sPEEK AT NEXT CHARACTER 
27 5) 1 06 ; 1031 CMPB A/*/ ‘SYMBOL END WITH SINGLE QUOTE? 
12 0695 1032 BNEQ 5 4 ‘BRANCH IF TRAILING SINGLE QUOTE 


6 9 
READ AN INPUT RECORD i a 3 4 AX/VMS Macro Vv04-00 Page 
EXPAND INPUT LINE =}382 99: 43; $8 POEL SRCIREADREC MAR: 1 (3) 
F966" 30 697 ; BSBW OCLSGETCHAR :GOBBLE TRAILING QUOTE 
69A 1035 : APPEND THE SYMBOL TRANSLATION TO THE FRONT OF THE INPUT BUFFER 
9A 1 ‘ ; AND RESET THE INPUT POINTER TO POINT TO IT. IS I$ DONE ASE 
69A ; THERE ARE ANY SINGLE QUOTES IN THE TRANSLATION WHICH REQUIRE SUBSTITUTION. 
F4BE CA 51 «C2 «(069A 1 § $0s: SUBL  R1,WRK_L_CHARPTR(R10) :CALCULATE ADDRESS TO copy STRING 
50 F48E cA 69F 1040 MOVL WRK_L CHRRPTR( (R10),RO  ;POINT TO NEW POSITION 
01 A0 62 51 GAs 4} MOVC  R1,TR2),1(RO) SCONCATENATE STRING TO INPUT BUFFER 
6A9 1 rk 3 A MAXIMUM OF 1000 SUBSTITUTIONS IS ALLOWED PER LINE, TO PREVENT ANY 
6A9 rk : INFINITE LOOPS FROM OCCURRING DUE TO RECURSIVE SUBSTITUTIONS. 
FO A 80 6A9 1 46 Sos:  movw (SP) + WRK | W_FLAGS(R10) ;RESTORE FLAGS QUOTE AND NOUPCASE 
F286 cA BEDO 06AD 104 POPL WRK b- EXPANBPTR(R10) :RETRIEVE ADDRESS IN EXPANSION BUFFER 
FF28 6E 01 O3E 3D 0682 1 48 ACBW #1000741, (SP), 10$ CHECK SUBSTITUTION LOOP 
6BA 104 STATUS EXPSYN ‘EXPRESSION SYNTAX 
F4B6 CA, 57 56 C1 BOLI 1050 DLS RG,R7.WRK_L_EXPANDPTR(R Rn10) ;P OINT AT END OF , SYMBOL 
F48A CA 77 GE 067 1051 MOVAB =(R7).WRK"L -MARKPTR thio ) Skt OA RESS OF ""*" 
F931" 31 b6¢¢ 3g BRW DCL SPARSERR™ REPORT. BRE 
peer igee ; END OF LINE DETECTED. MOVE EXPANDED LINE BACK INTO THE INPUT BUFFER 
O6¢F 1055 : FOR THE LEXICAL PROCESSING. 
57 04 AE DO O6CF 1089 b0s: MOVL 4(SP),R7 T SAVED EXPANSION POINTER 
59 F486 CA 5? C3 06D3 1058 SUBL3 R7 WRK_L_EXPANDPTR(R10), ase jCALCULATE LENGTH OF EXPANDED LINE 
58 F996 CA 9E 0609 1059 MOVAB K_G_ TNPBUF +URK.C C_INPBUFS12(R RTO) AR FIND END OF INPUT BUFFER 
58 59 C2 O6DE 1060 SUBL Rg. R8~ ; COMPUT sronise TO MOVE LINE TO 
68 67 59 : 06E1 1061 MOVC Re. (R7), (RB) :MOVE EE PANDED LINE | TO END OF INPUT BUFFER 
52. 5 D O6E5 106 MOV RB,R2 [SET INPUT LINE PARAMETERS 
53D? (06EB. (106 DECL R DECREMENT LENGTH TO EXCLUDE EOL CHAR 
F4BE CA FF A2 9E O6EA 1064 MOVAB =-1(R2),WRK_L_ CHARPTR(R105 ; -SET ADDRESS OF EXPANDED INPUT LINE 
BE B85 O6FO 1065 TSTw  (SP)¢ sREMOVE ITERATION COUNTER FROM STACK 
FO AA. BE BO 06F 1066 MOVW (SP)+,WRK_WFLAGS(R10) RESTORE CURRENT PARSING FLAGS 
F486 CA BEDO 06F6 106 POPL  WRK_L_EXPANBPTR(R10) RESTORE EXPANSION BUFFER POINTER 
F48A CA BEDO O6FB 1068 POPL WRK -t- MARKPTR(R10) RESTORE MARKER POINTER 
O3FO 8F BA 0700 1069 POPR #*MZRZ,R5,R6,R7,R8,R9> RESTORE REGISTERS 
05 0704 1070 RSB 
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- READ AN INPUT RECORD 197 360-1386 90:13:48 AX/VMS Macro v04-00 Page 46 
SPECIAL TOKEN LEXICAL PROCESSING 4=SEP=1984 23:42:34 ([DCL.SRCJREADREC.MAR; 1 (14) 
? 2 .SBTTL SPECIAL TOKEN LEXICAL PROCESSING 
705 107% : 
705 1075 ; THIS ROUTINE IS CALLED TO PROCESS LEXICAL TOKENS WITH SPECIAL CHARACTERS. 
, 26 : THE LIST OF CHARACTERS ARE: 
705 1 28 : &SYMBOL - TOKEN IS SUBSTITUTED WITH SYMBOL VALUE 
705 1079 : aF ILESPEC = TOKEN IS SUBSTITUTED WITH FIRST RECORD CONTAINED 
4 ! ? 3 IN THE ASSOCIATED PROCEDURE FILE. 
, : : INPUTS: 
705 1084 : R11 = ADDRESS OF PRC AREA 
705 1085 : R10 = ADDRESS OF WRK AREA 
208 ise? ; RO = FIRST CHARACTER IN TOKEN 
708 1088 : ADDITIONAL INPUT AND OUTPUT SPECIFICATIONS ARE GIVEN WITH EACH ROUTINE. 
9708 1090 ~~ 
705 1098 DCLSSPECIAL:: 
26 50 91 0705 109 CMPB) ss RO, #*A'S' : SUBSTITUTION? 
07 13 0708 109% BEQL AMPERSAND ‘BRANCH IF SO 
40 8F 50 91 O70A 1095 CMPBsaRO, #*A‘a' t INDIRECTION? 
22.13 0708 1096 BEQL INDIRECT iBRA NCH IF SO 
05 0710 109 RSB SIF NOT KNOWN, IGNORE IT 
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RECORD 16-SEP-1984 00:11:48 YAX/VMS Ma 
CONSTRUCT o28Ep=|98¢ 38 Ub ge DCL. SRCIREADRE RE 


«SBTTL PROCESS &SYMBOL CONSTRUCT 


v04-00 
EC.MAR;1 


HANDLE &SYMBOL CONSTRUCT. 
INPUTS: 


RO = CHARACTER IN INPUT BUFFER (8) 
R1/R2 = DESCRIPTOR OF TOKEN, INCLUDING ‘'8'’ CHARACTER 


OUTPUTS: 


RO = NEXT CHARACTER IN INPUT BUFFER 
R1/R2 = DESCRIPTOR OF UPDATED TOKEN 


THE EXPANSION BUFFER WILL BE OVERWRITTEN WITH SYMBOL VALUE 


a et ts i tt ts tt 


1 
1 
1 
1 
1 
19 
1? AMPERSAND: 
1 PUSHR #*M<R2,R3,R4,R5> ; SAVE REGISTERS 
1 INCL —R2 :POINT TO SYMBOL NAME 
DECL = RI SADJUST LENGTH OF NE YRBOL NAME 
BEQL 408 [BRANCH IF NULL SYMBOL NAME 
BSBW DCLSSYM_STRING : SEARCH LOCAL /GLO OBAL, Sym 80L TABLES 
40$ MOVC 1, (R2)7a(SP) SOVERWRIT H ITS VALUE 
VL = R3,WRK_L_EXPANDPTR(R10) iSET NEW EXPANSION” eurten POINTER 
POPR ore R3,R4,R5> RESTORE REGISTERS 
BSBW fCHAR PEEK AT NEXT CHARACTER IN INPUT BUFFER 
: SUBL3 Roe WRK Ye RG SCALCULATE LENGTH OF NEW TOKEN 


ve 
2» 
ow 
am 
m> 
“oo 
> 
OO OOD NIPPON PIPUPIPIPIPIPIPOPOPNININININPD we 
oe 


CGOOOCCCOCOCOCOCOCOCOOOOOOOOOOOOOOCoOO 


SN NNN oo 


MASCCOo COD 
VERS 


| 
| 


39 
NPUT RECORD 16-SEP-1984 00:11:48 
LESPEC CONSTRUCT past 7 903i a8 
1 0 .SBTTL PROCESS @FILESPEC CONSTRUCT 
1132 ; 
i $ ; HANDLE @FILESPEC CONSTRUCT. 
1 5 : INPUTS: 
1 $ : RO = CHARACTER IN INPUT BUFFER (a) 
1 § : AT THIS POINT, ONLY THE @ HAS BEEN SEEN, AND THE FILESPEC 
1140 : HAS NOT YET BEEN PROCESSED. 
1146 : OUTPUTS: 
1146 : RO = NEXT CHARACTER IN INPUT BUFFER 
1146 INDIRECT: 
1147 BBSS #PRC_V_IND.PRC_W_FLAGS (R11) 908 SKIP 
1149 PUSHL WRK_L_MARKPTR(R10) [SAVE OLD PAR 
1150 BSBW SMARK ist 
1151 BSBW DCLSSTACK IND TAC 
113¢ CLRBIT IND, bc W FLAGS(RIIS : 
115 BLBC RO “strscn ERROR sBRANCH IF ERR 
1154 MOVL  (SP)+ eRe e EMARKPTR(R10)° RESTORE OLD 
1155 BSBW DCLSINPUT GET 
1156 90$:  RSB 


0 
DCL. SRCIREAD DREC «MAR; 1 


FRAC’ 30 
F8A7" 30 
50 8 


F8A1' 30 
F89E" 31 
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NPUT RECO 16-$ AX/VMS Macro v04-00 Page 29 
ERIN CHARACTER INPUT ROUTINE ‘-SEP-1oB4 Soiucite Loe Vee TRERS RLS mae. ee 93, 
113 ~SBTTL ERROR HANDLER IN CHARACTER INPUT ROUTINES 
1160 : 
1161 ; THIS ROUTINE IS CALLED TO PERFORM ANY SPECIAL PROCESSING WHEN AN 
1 ; ERROR IS DETECTED BY THE CHARACTER INPUT ROUTINES. 
1164 : INPUTS: 
1188 3 
1196 : RO = STATUS CODE 
1167 ; 
1168 ; OUTPUTS: 
118 : 
Vie 3 NONE 
11% DCLSCHARERROR: : 
117 BSBW DCLSERRORMSG sREPORT ERROR MESSAGE 
1174 PUSHL TSAVE STATUS CODE 
1175 W  DOCLSFLUSH sFLUSH INPUT BUFFER 
1176 POPL RO sRESTORE STATUS COE 
117 BSBW DCLSSET_STATUS 3SET COMPLETION STATUS 
1178 BRW DCLSRESTART START THE PARSING ALL OVER AGAIN 


e285 


= READ A 
RECALL 


E0 
EO 


No -9OWS 


SON —w—" OO 


SOOOOSOOOSOOOSOSGOOCOOCOCOCOOOOOOOCOOCOCOOCOOOOOOoOOO 
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SSSA AA AAA AAA AAA AO 


SESS SS See ana aanae 
-_—m DDWOWMO POLLLLLL NH! ON 
a a a kk a a at a st a 8 a 2 a 2 I 8) bd 8 2s 


POPIPOPIPOPOPONOPOPONOPTNINOPONOPOPPOPIPONIPINOPUNIPOPONOPNOPINUNPNNY 2 2 


SQN NNN NNN 


SSN NSN 


~~~ 
RSSEL 
m = 


N_ INPUT RECORD 
COMMAND 


-SBTTL RECALL COMMAND 
DCLSRECALL = RECALL COMMAND 


+ 


OUTPUTS: 
RO = STATUS CODE 


DCLSRECALL:: 


BBS #PRC_V_MODE,- 
BBS #PRt 
PRC 


90$ 


Ww 
bad 
@ 
z 
<£ 


vere 


$: MOVL 


: PARSE THE COMMAND. 


AA ALAAIPINININIPININININID) 2 = I | MQOOOTOOCOOOCOCOOWOVOOVOOOVOO 
ANEW =O OONOUE WN (OC OONOA UE WO OD NOU WWN 90 ODNOUE WN OOO NOUS WO 
+ 
”" 
ae 
- 


R1,R2 
R2,-(SP) 


16-SE 
4-SE 


INPUTS: 
R8 = ADDRESS OF SCRAT 
R9 = ADDRESS OF SCRAT 
R10 = ADDRESS OF COMM 
R11 = ADDRESS OF PROC 


E, 
PRC_@ FLAGS(R11),3$ 
YLEVEL,- 
_G_FLAGS (R11) ,5$ 
PRCLLIINDEPTH(R11) 


SP 
#1,DCL$GET_PREV_COMMAND 
(SP)¢ 


WRK_L_RECALLPTR(R10),- 
PRC"L~RECALLPTR(R11) 


MOVL = #1,R6 

BSBW = DCL SGETDVAL 

CMPL  #PTR_K_ENDLINE,RS 
BEQL 0$ 

CMPL  #PTR_K_PARAMETR,RS 
BNEQ 208 


1 


4 


THIS ROUTINE IS CALLED TO EXECUTE THE DCL RECALL COMMAND. TH 
COMMAND REPROMPTS THE USER WITH A COMMAND THAT HE HAS PREVI 
OR DISPLAYS FOR THE USER THE LIST OF ALL THE COMMANDS IN THE 


Sete Sete Sete te te 


2:42 


AX/VMS Macro v04-00 
DCL.SRCIJREADREC .MAR; 1 


AA DESCRIPTOR 


D WORK AREA 
S WORK AREA 


: SKIP IF ENTERED FROM A COMMAND PROCEDURE. 


IF SET, NOT INTERACTIVE 
IF SET, AT CONTROL Y/C LEVEL 


INDIRECT LEVEL ZERO? 
BRANCH IF YES 
RETURN 


; REMOVE THIS COMMAND FROM THE RECALL BUFFER. 


PRC_L_RECALLPTR(R11),- 
WRK ELTRECALLPTR(RIO) 


; UPDATE WRK RECALL PTR 


ALLOCATE COMMAND DESCRIPTOR 
POINT TO IT 

GET THE RECALL COMMAND 
DISCARD THE DESCRIPTOR 
UPDATE PRC RECALL PTR 


ASSUME BACKING UP ONE COMMAND 
GET NEXT DESCRIPTOR 

YES, EXECUTE THE COMMAND 
NUMBER? 


NO, MUST BE /ALL 
COPY DESCRIPTOR 
SAVE IT ON THE STACK 


m 9 | 
= READ AN INPUT RECORD 16-SEP “1984 99: 1}: 48 AX/VMS Macro v04-00 Page 31 
LL - ho MAR; )| 
RECALL COMMAND 4=SEP 24 DCL. SRCJREADREC.MAR; 1 (18) | 
51 91 ; 7A1 1237 MOVL #1,R1 : SET DECIMAL RADIX | 
F859" 7AG 1 3 BSBW DCLSCNVNOEDIT : CONVERT NUMBER TO BINARY 
52 7A7_ 1 MOVa (SP)+,Re + RESTORE THE DESCRIPTOR 
DS O7AA 1 40 TSTL oR + WAS IT A NUMBER? 
13 O7AC 124 BEQL 108 + YES, CHECK BOUNDS 
56 7D TAF 1 46 MOV = R2 RO : SAVE THE STRING DESCRIPTOR 
19 11 O7B1 126 BRB 35§ : GET THE COMMAND 
14 51 D1 0783 1244 108:  CMPL  R1,#WRK_C_RECALLMAX : WITHIN BOUNDS? 
g¢ 1A 0786 1245 BctRu 95$ : NO, SIGNAL ERR 
56 O51 og 788 1 46 MOVL R1,R6 + GEf BACKUP COU 
07 13 O7BB 124 BEQL © 95$ + SIGNAL ERROR Hi ZERO 
43. 11 «#O7BD 1 4g BRB 30$ + GET THE 
56 14 DO O7BF 1249 208:  MOVL  #WRK_C_RECALLMAX,R6 * /ALL AY $ SPECIFIED 
BRB s DB H 
SF rce 20 50$ ISPALY THE COMMANDS 
704 1 3 95$: STATUS IVVALU : SET INVALID VALUE STATUS 
0S O07¢B 125 RSB + RETURN 
Bree 1588 
gree | 36 : : FETCH SPECIFIED COMMAND BY STRING. 
59 14 pO O7€C 1958 $5$: — MovL un C_RECALLMAX,R9 : /ALL WAS SPECIFIED 
7E «7 Orc 1259 CLRG SPY + ALLOCATE COMMAND DESCRIPTOR 
SE DD 07D1 1260 36$:  PUSHL sp t PUSH DESCR ADDRESS 
o000'cr O01 FB O7D3 1261 CALLS #1,DCL$GET_PREV_COMMAND : GET THE REV IOUS COMMAN 
0488 04 BF 6€ 28 O7D8 1 6¢ MOVC ($B) a4 (SPY, a4 (R8) : ¢ TO SCRATCH P BUFFER 
68 6€ 00 2DE 126 MOVL (3p) * (RB) : COPY TAITTAL LENGTH 
51 68 7D O7E1 1264 MOVa (RB). : SET COMMAND DESCRIPTOR 
F819" 30 ores 1265 BSBW OCLSTRIM : UPCASE AND TRIM THE 
51 56 D1 O7E7 1266 PL = R6, RI ; MAKE SURE WE ARE CHECKING. A SUBSTRING 
98 1A O7EA 1267 BGTRU 361$ : SKIP THIS ONE IF NOT 
62 56 00 67 36 @0 ore 68 cMPC RG, (R7) .#0.R6, (R2) : b9 «THE STRINGS MATCH? 
DA 59 i O7F4 1270 361$:  SOBGTR R9,36$ ; (608 TILL SEARCHED ALL COMMANDS 
SE 08) = c0 O7F7 1271 ADDL #8.5P : RESTORE THE STA 
50 00038238 8F DO O7FA 1 rg MOVL § #CLI$_CMDNOTFND,RO : SET COMMAND NOT FOUND STATUS 
05 0801 127 RSB : RETU 
S503 1598 
80 1 26 > FETCH SPECIFIED COMMAND BY NUMBER. 
7E 7C 0802 1 28 308: CLRQ 2s = (SP) ; ALLOCATE COMMAND DESCRIPTOR 
SE DD 0804 1279 32$:  PUSHL SP ; PUSH DESCR ADDRESS 
o000'cr 01 F 06 1280 CALLS #1 .DCLSGET_PREV_COMMAND : GET THE PREVIOUS COMMAND 
6 56SCO*#F 08 " SOBGTR R6. : LOOP TILL BACKED UP FAR ENOUGH 
OE 1283 ; 
pe ' $3 3; SET UP RAB TO REPROMPT WITH THE COMMAND. 
51 8& 7D OF 1 6 $73: mova (SP)+, RI : GET COMMAND DESCRIPTOR 
54° 14 AB 00 0811 1 MOVL PRC_L TNDINPRABCRITD R4 : ASSUME USING INDIRECT INPUT RAB 
E1 13 1 8 BBC #PRC_0_YLEV : BRANCH IF NOT AT CTRL/Y LEVEL 
68 AB 17 1 PRC_O FLAGS) 40s : 
54 0 1A 1290 MOVL  PRCTL R115,R + USE LEVEL 0 INPUT RAB 
FBCE 1 1291 40$ BSBW INSERT COMMAND : INSERT THE COMMAND 
64 «O11 4 36 BRB 0$ ; 


= READ AN INPUT RECORD ats eb 9 9: 
OMMAND 4-SEP=1984 


748 VAX/VMS Macro v04-00 Page 
RECALL ¢ 3 of ih) 


1] 
242:34 L[DCL.SRCJREADREC.MAR; 1 | 


1294 ; 
99 : DISPLAY ALL COMMANDS | 
20312000 8F 0 1 38 S0$:  MOVL #*x20312000,- : SET INITIAL NUMBER STRING 
F890 CA 1 38 G_INPBUF -6(R10) : | 
5 EA AA 0 § 99 55S: MOVE WRK RE ALLPTR(R10),RO : HAVE WE ALREADY DISPLAYED THEM ALL? 
51 9133 g F 4 1301 MOVAB PRC G_COMMANDS (R11) .R1 + WRAP IF NECESSARY | 
1 D 9 1 : CMPL =e ROR : 
0S ie 2h BGEQU : 
50 0533 (8B 9 1304 MOVAB PRC G_COMMANDS+PRC_C_CMDBUFS1Z-1(R11) ,RO 
60 93 0843 1305 S78: STB (ROT ; BRANCH IF NO COMMANDS LEFT | 
40 1 45 1 : BEQL 908 ; | 
7E 70 0847 1 0 CLRO = = (SP) + ALLOCATE COMMAND DESCRIPTOR 
SE DD 0849 1308 PUSHL SP + PUSH DESCR ADDRESS 
oo00'cr 01 FB 0848 1309 CALLS #1,DCLSGET_PREV_COMMAND ; GET THE PREVIOUS COMMAND 
51 8 7D 0850 1310 mova (SP) + RI ; GET COMMAND DESCRIPTOR | 
51 0 C9 53 1311 ADDL RI : INSERT THE COMMAND NUMBER 
52 03 «OC 56 1 SUBL #3,R2 : 
7E 51 7D 0859 131 MOVG = R1.= (SP) + SAVE COMMAND DESCRIPTOR 
F7A1" 30 085C 1314 BSBW DCLS$MSGOUT + OUTPUT THE COMMAND 
51 BE 7D O85F 1315 MOVQ (SP)+,R1 t RESTORE COMMAND DESCRIPTOR 
39° 01 A2 91 0862 1 1 CMPB s«AW(R2) , #*X39 : IS ONES DIGIT A 9? 
11. «12 086 131 BNEQ 60$ : NO, THEN SKIP 
31 62 91 86 1318 CMPB ss (R2) , #*X31 : IS TENS DIGIT A 1? 
07 12 0868 1319 BNEQ 58$ ; NO, THEN SKIP 
62 232 8F BO 0860 1 20 MOVW  #*X2F32,(R2) : YES, INSERT "'2/" 
0S 11 0872 1321 BRB 60$ + BRA | 
62 2F31 BF BO 087% 13 : 58$:  MOVW #7136 31, (R2) : INSERT ''1/° | 
01 a2 (96 0879 : 60$: INCB  1(¢R2) : INCREMENT THE COMMAND NUMBER | 
| 
087C 1325; 
ogre 6 : CHECK FOR NO MORE COMMANDS. | 
012F CB D1 Sere 1328 CMPL  PRC_L_RECALLPTR(R11),- ; HAVE WE RETURNED TO THE ORIGIN? 
EA AA 0880 1329 WRKTL-RECALLPTR(R10) ss; | 
03 13 0882 13 0 BEQL : 
AS 56 OFS 0884 1 SOBGTR R6,55$ : OR DISPLAYED THE MAX # OF COMMANDS? | 
387 1 3 90S: STATUS NORMAL : SET SUCCESS 
0S O88E 1334 RSB > ALL DONE 
B8F 1335 | 
O88F 1336 END | 
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READREC = READ AN INPUT RECORD ToSEP=198e 23:42:3¢ EDEL VeACTREADRES man: 1 
Symbol table s7F 
$$. TMP : 0} Praate ee BO0000AE 
$$. 1TMP2 - > $ SEFN eereeree 
t D EXPAND ‘ = SogeS 
AMPERSAND 1 Aen ate 2 09 008 
CLIS_CMDNOTFND a 8 ; GET"KEY NAME aeereree 0 
CLISTEXPSYN r INDTRECT 0000732 R =O 
CLIS_IVVALU mts ttt ERT COMMAND QOOSEF R =O 
CLI $_NORMAL = Boots se 10 ERROR 0000198 Ro 
CLIS"SYMOVE = 000 81 8 10, ate H 
CL'$"USGOTO = 00038148 ITRM_C_LE 45 
DCLSABORT eretenee =x 0 TRAC MLE 000003 
DCLSALLOC, STATE omen g SS LTRMCR THING 000001 
DCLSBACKUPCHAR eeereree x te 0000001¢ 
DCLSCHARERROR 00000751 0 ITRMOLINIADD 800000 
DCLSCLOSE _PPFS teeeeeee KX 0 LTRMLIINIRE nai 4 4t 
DCLSCNVNOEDIT eheeeeee 3 BR a HY { 0000008 
DCLSCRLF eeeneeee xX ITRM_L_MOD } 4448 C 
DCLSCVT_STRING teeneeee =X 0 Tee ore eet §0090038 
DCLSDEACGOTO eveceere =f 0 a ee a 00000010 
DCLSDEALLOC_ STATE weve th UE TART -PRPTAGT 90000014 
DEL SDSBCONTRLY eeeeeeee § Xf BS ITRM_W_INICODE $4 4d 
DCLSERRORMSG tenenere§ KX 0 i 00000002 
DCLSFLUSH eevenese 86 Oe ent poor ee 00000000 
DCLSGETCHAR fereeeee XK 02 see OEE 00000026 
DCLSGETDVAL cee ee TRA=W-OF FLEN 09900026 
DEL SGET. CURR. COMMAND eeeeseee x OS IT RM_W_PMPTCODE BRO f Oh OE 
DCL SGET“NEXT— COMMAND teeneree =X 0 Ahm Mang O00000F S$ 
DCLSGE T" PREV_ COMMAND 00000005 RG” os PRE-B-DEF RADIX QOOOO0AE 
nana teeeeeee =X 02 PRC~B-EXMDEPMOD 900000ap 
DCLSLOCKED_STATE 00000581 02 PRC~B~EXMDEPUID 44 Eas 
DCLSMARK ~ eeeeeeee = X 02 Se tea OOO000AF 
DCLSMSGOUT eee ae a 4 ee 00000078 
DCLSPARSERR eerereee§ KX 0 pate" MTracs 0000012¢ 
DCLSPUTCHAR eeneeeee KX 02 PRC_B_OU neTtEN 000000F0 
DCLSPUT_ COMMAND enw 1 WG paemenCROMUE ETT = 00000401 
DCLSPUT- SEGMENT peoeeees ss Bs preme“veneta 09000384 
SEER, sees 7M BEcectomus He 
ARCH geeereeee oVe 

DCL SEARCH, KEYPAD crreeeee 8 pe=e=tunety 00000048 
DEL ESET STATUS tereneee XK 0 PRC_L-EXMDEPADR 464 9g 
DCL$SPEC 00000705 0 4 00008¢ 
OCLSSTAC eereeree xX 0 erent ERT eon 00009 
DCLSSYM_STRING eeeeeeee PRC_L_ THND 9 
DCLSTRIA eeeneeee Xx ec at Ex THND + 9 
DCL SUNS TACK eeeerere =X te oo 

CLSUPCAS eenereee § xX pe Le tsts 0 ° 5 
DEVSV_TRM eeererer KX 0 prenrmiuecr ore C 
SUS eye? * HE pat NBCA OS Sit 
ERASE" 90000000 R 8 PRCZL~INDF AB 000001¢ 
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4 
SYSSEXIT teeeeeee GX WRK_W_PMPTLEN FF 
SYSSGET teeeneee GX XABSW1TMLST_LEN 00 
SYSSGETOVIW teeeeeee GX $$ 

SYSSPUT teeeeeee GX . 

eeeeeeee 
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“L=DISALLOW 
RK-L~ERRORRTN 
WRK~L~EXPANDPTR 

wR E 
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TNHWMHAMNONNOONHL NSE 
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Oco = 


mM NODOOOCOOOQOCO@R TT 
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WRK" V_QUOTE 
WRK-V" TRAILSPC 
WRK"W_FLAGS 
WRK _W_FLAGS2 
WRK"W~ IMGCHAN 


z 
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Mac 
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peewee meee moanccat 


! Psect synopsis ! 


ger cw nase ee srea reat 


PSECT name Allocation PSECT No. Attributes 

- ABS . 00000000 3 0¢ 0.) NOPIC USR CON ABS LCL ort NOEXE NORD wet NOVEC BYTE 
SABSS$ FFFFFFFC (¢ -) Q7 ¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
DCLSZCODE OOOO0O8BF ¢( 2191.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOURT NOVEC BYTE 


gr weer een ee meme nme mo ana $ 


! Performance indicators ! 


pmoen enw mewn nmr r ces econ a} 


Phase Page faults CPU Time Elapsed Time 
Initialization 9 00:00:00.07 0:00:00. 
pomnene processing 89 09:00:09.0 0; 00-9 
351 80:6 15.31 0:00:43.74 
Synbol table sort 0:00:01.60 0: 8:0) 88 
s2 23 BB 80: 3.9 0:00:10.0 
on S table output 33 00:00: 8-6 0:00:00.64 
Psect synopsis output 00:00:00. 82? 88 BR 6 
Cross-reference output 00:00:00.00 88:80:38 -00 
Assembler run totals 710 00:00:21.94 0:01:07.02 


The working set Limit was 1500 pages. 

9799 bytes (156 pages) of virtual memory were used to buffer the intermediate code. 

ore were 60 pages of symbol table space Phy ety to hold 1072 non-local and 94 Local symbols. 
1336 source Lines were read in Pass 1, producing ¢ object records in Pass 2. 

58 pages of virtual memory were used to define 41 macros. 


poem ewe ene een en ewer os ouesues + 


: ; Macro library statistics : 


Macro Library name Macros defined 
S53 28DUA :EDEL-083 Meer MLB; 1 9 
mB: i 1 
$523SpUA MLB; 1 
$255SDUA28 ae ae MLB; 2 § 
TerAce att’ Libraries) 


1301 GETS were required to define 33 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:READREC/OBJ=OBJ$:READREC MSRC$:READREC/UPDATE=(ENHS:READREC) +EXECMLS$/LIB+L1B$:DCL/LIB+SYSS$LIBRARY : SYSBLDMLB/L 1B 
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